home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Nordlicht Spiele
/
Nordlicht Spiele 02-06 (19xx)(Nordlicht)(DE)(PD).zip
/
Nordlicht Spiele 02-06 (19xx)(Nordlicht)(DE)(PD).adf
/
autoexec.amos
/
autoexec.amosSourceCode
next >
Wrap
AMOS Source Code
|
1990-08-11
|
1KB
|
50 lines
Dim F$(20)
Unpack 14 To 0
Screen Open 1,640,62,8,Hires
Screen Display 1,,182,,
Curs Off : Flash Off : Cls 0 : Get Palette(0)
Read NBR
Reserve Zone NBR
For Z=1 To NBR : Read F$(Z) : F$(Z)=Upper$(F$(Z)) : Next Z
Data 2
Data "fruit_machine","fruit_crush"
Gr Writing 0
BX=1 : BY=1
TX=5 : TY=10
C=1
Palette ,,,,,,,$0
For Z=1 To 20
Ink 7
If C<NBR+1
Text TX,TY,F$(C)
Set Zone C,BX,BY To BX+155,BY+10
End If
Box BX,BY To BX+155,BY+10
Ink 1
If C<NBR+1
Text TX-1,TY-1,F$(C)
Inc C
End If
Draw BX,BY+10 To BX,BY : Draw BX,BY To BX+155,BY
Add BY,12
Add TY,12
If Z=5 : BX=158 : TX=163 : TY=10 : BY=1 : End If
If Z=10 : BX=316 : BY=1 : TX=321 : TY=10 : End If
If Z=15 : BX=474 : BY=1 : TX=479 : TY=10 : End If
Next Z
Repeat
If Mouse Zone>0 and Mouse Key=1
Bell : MZ=Mouse Zone
End If
Until MZ>0
F$=F$(MZ)+".amos"
Screen Close 1
Ink 3,0
Text 50,170,"Loading.........Please Wait"
Ink 5
Text 49,169,"Loading.........Please Wait"
Ink 3 : Box 47,160 To 267,172
Ink 1 : Draw 47,172 To 47,160 : Draw To 267,160
Flash 5,"(fe0,8)(fff,8)(ff0,8)"
Erase 14
Run F$